home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / ShareMailGiftware / AmigaTalk / testfiles / TestBorders < prev    next >
Text File  |  2002-10-27  |  2KB  |  78 lines
  1. scr <- Screen new: 16r40D20001
  2. scr          open: 'Testing Screen'
  3.  
  4. win <- Window new: 'TestBorders Window'
  5.  
  6. win setFlags:       16r1100F
  7. win setIDCMPFlags:  16r240     "IDCMP_CLOSEWINDOW + IDCMP_GADGETUP"
  8. win openOnScreen:   scr
  9.  
  10. scr screenToFront
  11.  
  12. b1 <- Border new: 6
  13. b1    registerTo: win
  14.  
  15. b1 setStartPoint:  100 @ 50
  16. b1 setDrawMode:    1
  17. b1 setBorderPens:  5 @ 2
  18.  
  19. b1 setBorderPoint: 1 to: 200 @ 50
  20. b1 setBorderPoint: 2 to: 300 @ 50
  21. b1 setBorderPoint: 3 to: 200 @ 150
  22. b1 setBorderPoint: 4 to: 250 @ 0
  23. b1 setBorderPoint: 5 to: 300 @ 150
  24. b1 setBorderPoint: 6 to: 200 @ 50
  25.  
  26. itxt <- IText new: 'Press Close Gadget when you are done!'  
  27.  
  28. itxt setPens:        6 @ 1
  29. itxt setITextOrigin: 0 @ 0
  30. itxt setDrawMode:    0       "JAM1 = 0"
  31. itxt registerTo:     win
  32. itxt setDrawMode:    0
  33.  
  34. win  printIText:  itxt at: 100 @ 390
  35.  
  36. rval <- b1 getStartPoint
  37. ('b1 starting point = ', rval asString ) print
  38.  
  39. rval <- b1 getDrawMode
  40. ('b1 drawmode = ', rval asString ) print
  41.  
  42. rval <- b1 getCount
  43. ('b1 point count = ', rval asString ) print
  44.  
  45. rval <- b1 getBorderPens
  46. ('b1 pens are ', rval asString ) print
  47.  
  48. b2 <- Border new: 6
  49. b2    registerTo: win
  50.  
  51. b2 setStartPoint:  350 @ 50
  52. b2 setDrawMode:    0
  53. b2 setBorderPens:  3 @ 7
  54.  
  55. b2 setBorderPoint: 1 to: 100 @ 50
  56. b2 setBorderPoint: 2 to: 200 @ 50
  57. b2 setBorderPoint: 3 to: 100 @ 150
  58. b2 setBorderPoint: 4 to: 150 @ 0
  59. b2 setBorderPoint: 5 to: 200 @ 150
  60. b2 setBorderPoint: 6 to: 100 @ 50
  61.  
  62. b1 setNextBorder: b2
  63.  
  64. rval <- b1 getNextBorder
  65. ('b1 next border is ', rval asHex ) print
  66.  
  67. b1 draw
  68.  
  69. rval <- win handleIntuition     "Wait for the Close Gadget"
  70.  
  71. b2   remove
  72. b1   remove
  73.  
  74. itxt dispose
  75.  
  76. win  close
  77. scr  close
  78.